home *** CD-ROM | disk | FTP | other *** search
/ Info-Mac 1992 August / info-mac-1992.iso / Language (lang) / Lazy-Scheme / Examples / TestandGenerate / cont3 < prev    next >
Encoding:
Text File  |  1990-02-27  |  1.0 KB  |  47 lines  |  [TEXT/Help]
  1. ;DONALD+GERALD=ROBERT
  2.  
  3. (c)
  4.  
  5. (r0 d t r1 l r r2 e a r3 b n r4 o g)
  6.  
  7. ((0 1)
  8.  (0 1 2 3 4 5 6 7 8 9)
  9.  (0 1 2 3 4 5 6 7 8 9)
  10.  (0 1)
  11.  (0 1 2 3 4 5 6 7 8 9)
  12.  (0 1 2 3 4 5 6 7 8 9)
  13.  (0 1)
  14.  (0 1 2 3 4 5 6 7 8 9)
  15.  (0 1 2 3 4 5 6 7 8 9)
  16.  (0 1)
  17.  (0 1 2 3 4 5 6 7 8 9)
  18.  (0 1 2 3 4 5 6 7 8 9)
  19.  (0 1)
  20.  (0 1 2 3 4 5 6 7 8 9)
  21.  (0 1 2 3 4 5 6 7 8 9))
  22.  
  23.  
  24.  
  25. ((=? (+ d d)(+ t (* 10 r0)))
  26.  (=? (+ l (+ l r0))(+ r (* 10 r1)))
  27.  (=? (+ a (+ a r1))(+ e (* 10 r2)))
  28.  (=? (+ n (+ r r2))(+ b (* 10 r3)))
  29.  (=? (+ o (+ e r3))(+ o (* 10 r4)))
  30.  (=? r (+ d (+ g r4)))
  31.  (<>? d 0) (<>? g 0) (<>? r 0)
  32.  (<>? d o) (<>? d n) (<>? d a)
  33.  (<>? d l) (<>? d g) (<>? d e)
  34.  (<>? d r) (<>? d b) (<>? d t)
  35.  (<>? o n) (<>? o a) (<>? o l)
  36.  (<>? o g) (<>? o e) (<>? o r)
  37.  (<>? o b) (<>? o t) (<>? n a)
  38.  (<>? n l) (<>? n g) (<>? n e)
  39.  (<>? n r) (<>? n b) (<>? n t)
  40.  (<>? a l) (<>? a g) (<>? a e)
  41.  (<>? a r) (<>? a b) (<>? a t)
  42.  (<>? l g) (<>? l e) (<>? l r)
  43.  (<>? l b) (<>? l t) (<>? g e)
  44.  (<>? g r) (<>? g b) (<>? g t)
  45.  (<>? e r) (<>? e b) (<>? e t)
  46.  (<>? r b) (<>? r t) (<>? b t))
  47.